home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 October / Ahoy_Magazine_87-10_1987_Double_L_Side_A.d64 / Jam Attack 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  53 lines
  1. 10 rem *** jam attack 64 *** buck childress ***
  2. 20 rem *** p.o. box 13575 salem, or 97309 ***
  3. 30 printchr$(147)"loading and checking data line:":j=52000
  4. 40 forb=0to11:reada
  5. 50 ifb=0thenl=peek(64)*256+peek(63):printchr$(19)tab(31)l:print
  6. 60 ifa<0ora>255then80
  7. 70 pokej+b,a:x=x+a:d=d+1:nextb:reada:ifa=xthen90
  8. 80 print"error in data line:"l:end
  9. 90 x=0:j=j+12:ifd<504then40
  10. 100 print"the data is ok...":print:print"sys 52000 toggles on and off...":end
  11. 110 data162,203,236,51,3,240,10,169,151,72,169,77,1543
  12. 120 data160,203,76,58,203,169,237,72,162,245,169,139,1893
  13. 130 data160,227,141,0,3,140,1,3,104,141,50,3,973
  14. 140 data142,51,3,169,0,141,0,2,96,173,0,2,779
  15. 150 data206,0,2,201,64,208,35,32,159,204,32,184,1327
  16. 160 data204,169,13,32,210,255,32,207,255,201,13,240,1831
  17. 170 data6,32,210,255,76,98,203,169,15,32,195,255,1546
  18. 180 data32,204,255,76,116,164,201,178,240,12,134,251,1863
  19. 190 data162,203,32,39,203,166,251,76,139,227,165,45,1708
  20. 200 data133,2,165,46,166,43,164,44,76,172,203,160,1374
  21. 210 data20,185,174,0,153,32,205,136,16,247,165,174,1507
  22. 220 data133,2,165,175,166,193,164,194,32,144,204,32,1604
  23. 230 data159,204,169,5,162,8,160,0,32,186,255,169,1509
  24. 240 data5,162,205,160,204,32,189,255,32,192,255,169,1860
  25. 250 data234,141,40,3,162,5,32,198,255,169,35,133,1407
  26. 260 data251,32,207,255,198,251,208,249,133,251,32,207,2274
  27. 270 data255,133,252,169,5,32,195,255,32,184,204,169,1885
  28. 280 data15,32,195,255,32,204,255,169,237,141,40,3,1578
  29. 290 data169,1,174,30,205,172,31,205,133,2,134,253,1509
  30. 300 data132,254,169,0,162,252,141,27,205,230,253,208,2033
  31. 310 data2,230,254,165,253,205,28,205,208,7,165,254,1976
  32. 320 data205,29,205,240,14,202,208,233,162,254,230,2,1984
  33. 330 data208,227,238,27,205,208,222,169,210,160,204,32,2110
  34. 340 data30,171,173,27,205,166,2,32,205,189,169,229,1598
  35. 350 data160,204,32,30,171,165,252,166,251,32,205,189,1857
  36. 360 data169,13,32,210,255,173,0,2,201,177,208,3,1443
  37. 370 data76,116,164,169,245,160,204,32,30,171,169,0,1536
  38. 380 data133,198,32,228,255,201,78,240,4,201,89,208,1867
  39. 390 data245,32,210,255,72,169,13,32,210,255,104,201,1798
  40. 400 data78,208,3,76,116,164,160,20,185,32,205,153,1400
  41. 410 data174,0,136,16,247,76,237,245,141,29,205,165,1671
  42. 420 data2,141,28,205,142,30,205,140,31,205,96,169,1394
  43. 430 data0,133,144,169,8,32,12,237,169,240,32,185,1361
  44. 440 data237,165,144,16,237,104,104,162,5,76,55,164,1469
  45. 450 data169,15,168,162,8,32,186,255,169,0,32,189,1385
  46. 460 data255,32,192,255,162,15,76,198,255,36,58,85,1619
  47. 470 data61,85,13,80,82,79,71,82,65,77,32,76,803
  48. 480 data69,78,71,84,72,32,61,32,0,13,66,76,654
  49. 490 data79,67,75,83,32,70,82,69,69,32,61,32,751
  50. 500 data0,13,80,82,79,67,69,69,68,32,87,73,719
  51. 510 data84,72,32,84,72,69,32,83,65,86,69,63,811
  52. 520 data32,40,89,47,78,41,32,0,65,72,83,0,579
  53.